home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
tutorial
/
trac.zip
/
FIGII-8.OBJ
< prev
next >
Wrap
Text File
|
1990-01-25
|
640b
|
20 lines
1001 400011 Read N, X into 11, 12
1002 001501 Load A with a 1
1003 030013 Store F at 13
1004 000011 Load N into A
1005 031502 Store at K
1006 241017 Jump to stop instruction
1007 251015 Jump to print
1008 000013 Load F
1009 150012 Multiply by X
1010 030013 Store at F
1011 001502 Load K
1012 021501 Subtract 1
1013 031502 Store at K
1014 261006 Go back to start of loop
1015 410011 Print N, X, F
1016 261001 Jump to beginning of program
1017 500000 Stop the program
1501 1 Constant 1
9999 001001 End of code